CAADiameters_MercurySemidiameterA <-
function(Delta){
.Call("CAADiameters_MercurySemidiameterA", Delta)
}
